home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 33 / 64er_Magazin_Sonderheft_33_19xx_Markt__Technik_de_Side_B.d64 / brueche kuerzen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  124b  |  4 lines
  1. 10 input"zaehler";z:input"nenner ";n:a=z:b=n
  2. 20 r=a-int(a/b)*b:a=b:b=r:ifr>0then20
  3. 30 print:print"gekuerzt:":print"zaehler:"z/a:print"nenner: "n/a
  4.